Sub muestra_Resume_Next()
    Dim dividendo, divisor, resultado As Double
    dividendo = 10
    On Error Resume Next
    For divisor = 3 To -3 Step -1
        resultado = dividendo / divisor
        Debug.Print "(" & dividendo & ") / (" & divisor & ") = (" & resultado & ")"
    Next divisor
End Sub
